home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / add / abort2.asy < prev    next >
Encoding:
Text File  |  1994-05-04  |  621 b   |  30 lines
  1. ********************************************************
  2. ** ABORT2.SCR - ABORTS READ NOTIFY FROM A SECOND THREAD
  3. ********************************************************
  4. @THREAD ABORT2.L1
  5. @NEWALIAS DD DASDADD.GRA
  6. @IMPORT SYSINFO.U1
  7. DD DD_OPEN
  8. DD SET MEMSIZE=1024 \
  9.        NBUFF=10     \
  10.        BLOCKCOUNT=2 \
  11.        BLOCKSIZE=512 \
  12.        READFLAGS=0 \
  13.        RBA=250 \
  14.        MODE=0 \
  15.        LABEL=READ 
  16. @LOOP 10
  17. DD DD_READ
  18. @ENDLOOP
  19. DD DD_CHECKSTATUS
  20. DD DD_CLOSE
  21.  
  22. @THREAD ABORT2.L1
  23. @NEWALIAS D2 DASDADD.GRA
  24. @IMPORT SYSINFO2.U1
  25. D2 DD_OPEN
  26. D2 DD_ABORT LABEL=ONE
  27. DD DD_CHECKSTATUS
  28. D2 DD_CLOSE
  29.  
  30.